object fmMakinaPaketBirlestir: TfmMakinaPaketBirlestir
  Left = 483
  Top = 190
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Ek Par'#231'a Okutma '#199#305'k'#305#351' Son Kontrol'
  ClientHeight = 373
  ClientWidth = 671
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlSol: TPanel
    Left = 0
    Top = 0
    Width = 289
    Height = 340
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 5
      Top = 9
      Width = 70
      Height = 13
      Caption = 'Makina No :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Bevel1: TBevel
      Left = 0
      Top = 56
      Width = 288
      Height = 5
      Style = bsRaised
    end
    object Label2: TLabel
      Left = 5
      Top = 95
      Width = 73
      Height = 13
      Caption = 'PAK Serino :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lblAltcinsi: TLabel
      Left = 1
      Top = 294
      Width = 287
      Height = 45
      Align = alBottom
      Alignment = taCenter
      AutoSize = False
      Caption = 'Cinsi'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object Label3: TLabel
      Left = 5
      Top = 33
      Width = 71
      Height = 13
      Cursor = crHandPoint
      Caption = 'Pak Serino :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
      Transparent = True
      OnDblClick = Label3DblClick
    end
    object lblStokkodu: TLabel
      Left = 3
      Top = 69
      Width = 278
      Height = 17
      Alignment = taCenter
      AutoSize = False
      Caption = 'Stokkodu'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object edSisSeriNo: TEdit
      Left = 80
      Top = 6
      Width = 200
      Height = 21
      MaxLength = 50
      TabOrder = 0
      OnKeyPress = edSisSeriNoKeyPress
    end
    object edAnaSeriNo: TEdit
      Left = 80
      Top = 92
      Width = 200
      Height = 21
      MaxLength = 10
      TabOrder = 1
      OnKeyPress = edAnaSeriNoKeyPress
    end
    object wwDBGrid1: TwwDBGrid
      Left = 1
      Top = 117
      Width = 287
      Height = 177
      DisableThemes = False
      Selected.Strings = (
        'Stokkodu'#9'20'#9'Stokkodu'
        'SeriNos'#9'20'#9'Seri No')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alBottom
      DataSource = DsAlt
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
      TabOrder = 2
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      OnMouseUp = wwDBGrid1MouseUp
    end
    object edPakNo: TEdit
      Left = 80
      Top = 30
      Width = 201
      Height = 21
      Color = clGrayText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      OnKeyPress = edSisSeriNoKeyPress
    end
  end
  object pnlAlt: TPanel
    Left = 0
    Top = 340
    Width = 671
    Height = 33
    Align = alBottom
    TabOrder = 1
    object rbtnEkle: TRadioButton
      Left = 6
      Top = 4
      Width = 57
      Height = 25
      Caption = 'Ekle'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = rbtnEkleClick
    end
    object rbtnCikart: TRadioButton
      Left = 65
      Top = 4
      Width = 57
      Height = 25
      Caption = #199#305'kart'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = rbtnCikartClick
    end
    object btnYazdir: TButton
      Left = 506
      Top = 3
      Width = 65
      Height = 25
      Caption = 'Yazdir'
      TabOrder = 2
      Visible = False
    end
    object btnKapat: TButton
      Left = 582
      Top = 3
      Width = 65
      Height = 25
      Caption = 'Kapat'
      TabOrder = 3
      OnClick = btnKapatClick
    end
    object rbtnGozat: TRadioButton
      Left = 130
      Top = 4
      Width = 57
      Height = 25
      Caption = 'G'#246'zat'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = rbtnGozatClick
    end
  end
  object PageControl1: TPageControl
    Left = 296
    Top = 0
    Width = 375
    Height = 340
    ActivePage = TabSheet1
    Align = alRight
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Okutulan'
      object pnlSag: TPanel
        Left = 0
        Top = 0
        Width = 367
        Height = 312
        Align = alClient
        TabOrder = 0
        object lblCinsi: TLabel
          Left = 1
          Top = 270
          Width = 365
          Height = 41
          Align = alBottom
          Alignment = taCenter
          AutoSize = False
          Caption = 'Cinsi'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object EkParcaList: TwwDBGrid
          Left = 1
          Top = 1
          Width = 365
          Height = 269
          DisableThemes = False
          Selected.Strings = (
            'Stokkodu'#9'20'#9'Stok Kodu'
            'Serinos'#9'25'#9'Serin No'#9'F')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = DSAna
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          OnCalcCellColors = EkParcaListCalcCellColors
          OnMouseUp = EkParcaListMouseUp
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #220'retim Emri'
      ImageIndex = 1
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 367
        Height = 312
        Align = alClient
        TabOrder = 0
        object GridUretimEmri: TwwDBGrid
          Left = 1
          Top = 1
          Width = 365
          Height = 310
          DisableThemes = False
          Selected.Strings = (
            'stokkodu'#9'22'#9'Stok kodu'
            'cinsi'#9'28'#9'Cinsi'#9'F')
          IniAttributes.Delimiter = ';;'
          TitleColor = clBtnFace
          FixedCols = 0
          ShowHorzScrollBar = True
          Align = alClient
          DataSource = DsUretimEmri
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
          TabOrder = 0
          TitleAlignment = taLeftJustify
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          TitleLines = 1
          TitleButtons = False
          OnCalcCellColors = GridUretimEmriCalcCellColors
        end
      end
    end
  end
  object adoTemp: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 200
    Top = 232
  end
  object DSAna: TDataSource
    DataSet = adoMacFatharhar
    Left = 530
    Top = 176
  end
  object DsAlt: TDataSource
    DataSet = adoPacFatharhar
    Left = 618
    Top = 176
  end
  object Okutulmamis1Q: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'makinano1'
        Size = -1
        Value = Null
      end
      item
        Name = 'makinano2'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod,stokkodu=dbo.getstokkodu(stokkod) from uremrihar'
      'where emirno'
      'in'
      '('
      'select uretimno from uretim'
      'where makinano=:makinano1'
      
        ') and (select izlemeturu from stok where stok.stokkod=uremrihar.' +
        'stokkod)=2 and miktar=(select miktar from uremrihar u where u.em' +
        'irno=uremrihar.emirno and urunck='#39'C'#39') and urunck='#39'Y'#39'  and (selec' +
        't top 1 stokkod from fatharhar where makinano=:makinano2 and fat' +
        'harhar.stokkod=uremrihar.stokkod) is null and dbo.getstokkodu(st' +
        'okkod) not like '#39'K.MCE%'#39)
    Left = 538
    Top = 120
  end
  object Okutulmamis2Q: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'makinano1'
        Size = -1
        Value = Null
      end
      item
        Name = 'makinano2'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod,stokkodu=dbo.getstokkodu(stokkod) from uremrihar'
      'where emirno'
      'in'
      '('
      'select uretimno from uretim'
      'where makinano=:makinano1'
      
        ') and (select izlemeturu from stok where stok.stokkod=uremrihar.' +
        'stokkod)=2 and miktar=(select miktar from uremrihar u where u.em' +
        'irno=uremrihar.emirno and urunck='#39'C'#39') and urunck='#39'Y'#39'  and (selec' +
        't top 1 stokkod from fatharhar where makinano=:makinano2 and fat' +
        'harhar.stokkod=uremrihar.stokkod) is null and dbo.getstokkodu(st' +
        'okkod) not like '#39'K.MCE%'#39)
    Left = 458
    Top = 120
  end
  object TGeciciQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 618
    Top = 64
  end
  object TUremriharQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 530
    Top = 65
  end
  object adoOkutulan: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'MakSerino'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select S.Stokkod,S.Stokkodu,F.serinos from fatharhar F join Stok' +
        ' S on F.stokkod=S.Stokkod where makinano=:MakSeriNo')
    Left = 50
    Top = 144
  end
  object DsUretimEmri: TDataSource
    DataSet = adoMacUrEmri
    Left = 460
    Top = 184
  end
  object adoSarfEsGec: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select grup from stok where stokkod=:stokkod')
    Left = 328
    Top = 104
  end
  object YazdirildiYap: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update uretim '
      'set paket='#39'E'#39',paktar=getdate(),durum='#39'K'#39'  '
      'where makinano=:makinano')
    Left = 416
    Top = 248
  end
  object YazdirildiIptal: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'makinano'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update uretim '
      'set paket=null,paktar=null,durum='#39'T'#39'  '
      'where makinano=:makinano')
    Left = 472
    Top = 248
  end
  object adoMakina: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'Serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select Serinos,MakinaNo,'
      
        'PakSeriNo,Stokkodu=(Select Stokkodu from Stok where Stokkod=Fath' +
        'arhar.Stokkod),'
      
        'GrupId=(Select GrupId from Stok where Stokkod=Fatharhar.Stokkod)' +
        ' '
      'from fatharhar '
      'where Serinos=:Serino')
    Left = 48
    Top = 192
  end
  object adoPaket: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select Serinos,MakinaNo,PakSeriNo,Stokkodu=(Select Stokkodu from' +
        ' Stok where Stokkod=Fatharhar.Stokkod),GrupId=(Select GrupId fro' +
        'm Stok where Stokkod=Fatharhar.Stokkod) from fatharhar '
      'where Serinos=:Serino')
    Left = 44
    Top = 240
  end
  object adoMacFatharhar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Seri'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'Select FT.Serinos,S.Stokkodu from fatharhar FT Join Stok S on Ft' +
        '.stokkod=S.Stokkod '
      ' where makinano=:Seri ')
    Left = 122
    Top = 240
  end
  object adoMacUrEmri: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'MakSeriNo'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select  * from uremrihar U where U.emirno in (select uretimno fr' +
        'om uretim where makinano=:MakSeriNo)'
      'and U.urunck='#39'Y'#39' '
      'and (select izlemeturu from stok where stokkod=U.stokkod)=2')
    Left = 122
    Top = 176
  end
  object adoPacFatharhar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Seri'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'Select FT.Serinos,S.Stokkodu from fatharhar FT Join Stok S on Ft' +
        '.stokkod=S.Stokkod '
      ' where makinano=:Seri ')
    Left = 202
    Top = 176
  end
end
